home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / atbasic.lzh / atbasic / src / SBM 5.2 .S 1,P (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-03-04  |  3.8 KB  |  100 lines
  1. 70 minc inc flag22:bne min1:inc flag22+1
  2. 72 min1 inc flagfc:bne min2:inc flagfc+1:min2 rts
  3. 80 mgetiii tsx:jsr mgettwo+1:lda int+1:pha:lda int:pha:jsr mgetadr+1
  4. 85 lda int+1:sta flagfc+1:pla:sta int:pla:sta int+1:clc:rts
  5. 90 mgettwo tsx:jsr mgetadr+1:bcs mgeterr:lda int+1:sta flag22+1
  6. 91 lda int:sta flag22:jsr mfert:bcc mgetadr:clc:rts
  7. 100 mgetadr tsx:jsr mgetbyt+1:sta int+1:jsr mgetbyt+1:sta int:rts
  8. 110 mgetbyt tsx:jsr mgetnib
  9. 120 asl:asl:asl:asl:sta flagfc
  10. 130 jsr mgetnib:ora flagfc:sta flagfc:clc:rts
  11. 140 mgetnib jsr chrget:bne mg1:mgeterr txs:sec:rts
  12. 141 mg1 sec:sbc #"0"
  13. 150 bcc mgeterr:cmp #10:bcc mgetok
  14. 160 sbc #7:mgetok cmp #16:bcs mgeterr
  15. 170 rts
  16. 180 mprtadr jsr mprtspc:mprtad lda flag22+1:jsr mprtbyt
  17. 190 lda flag22:mprtbyt pha:lsr:lsr:lsr:lsr
  18. 200 jsr mprtnib:pla:and #15
  19. 210 mprtnib clc:adc #"0":cmp #":"
  20. 220 bcc mprtok:adc #6:mprtok jmp bsout
  21. 230 mprtspc lda #" ":.byt $2c
  22. 235 mprtpoi lda #"."
  23. 250 jmp bsout
  24. 260 mcomp lda flag22+1:cmp int+1:bcc mcorts:bne mcorts:lda flag22:cmp int
  25. 270 mcorts rts
  26. 280 mpa1 pla:lda #".":jmp bsout
  27. 290 mfert jsr chrget:php
  28. 291 lda zeibas:bne mdz1:dec zeibas+1:mdz1 dec zeibas:plp
  29. 292 beq mmend:clc:.byt $24:mmend sec:rts
  30. 300 mprtzei jsr mprtpoi:lda #";":jsr bsout
  31. 310 jsr mprtad:jsr mprtspc
  32. 320 ldy #0:mpz1 lda (flag22),y:jsr mprtbyt:jsr mprtspc
  33. 330 iny:cpy #8:bne mpz1:lda #4:jsr setfla
  34. 340 ldy #0:mpz2 lda (flag22),y:jsr bsout
  35. 350 iny:cpy #8:bne mpz2
  36. 360 lda #255-4:jsr clrfla:rts
  37. 400 mbefm jsr mgettwo
  38. 410 bcs mbmerr
  39. 450 mbm1a jsr mcomp:beq mbm3:bcs mbmend
  40. 480 mbm3 jsr $ffe1:beq mbmend:jsr $ffe4:cmp #" ":bne mbm1
  41. 490 mbm4 jsr $ffe4:beq mbm4
  42. 491 mbm1 jsr mprtzei:lda #13:jsr bsout
  43. 492 lda flag22:clc:adc #8:sta flag22:bcc mbm1a:inc flag22+1:bne mbm1a
  44. 495 mbmerr =*:mbmend rts
  45. 500 mbefinp jsr mgetadr:bcs mbiend
  46. 505 ldy #0
  47. 510 mbi1 jsr mgetbyt:bcs mbiend:sta (int),y:jsr mfert:bcs mbiend
  48. 520 iny:cpy #8:bne mbi1:mbiend lda #"[145]":jsr $ffd2
  49. 525 lda int:sta flag22:lda int+1:sta flag22+1:jsr mprtzei:lda #13:jmp bsout
  50. 600 mmon jsr chrget:beq mmonrts:sta div:ldy #0:jsr mm1:mmonrts jmp $a47b
  51. 610 mm1 lda mbeftab,y:beq mmonex:cmp div:beq mmok
  52. 620 iny:bne mm1
  53. 630 mmok tya:asl:tax
  54. 640 lda madrtab+1,x:pha:lda madrtab,x:pha:mmonex rts
  55. 690 mbeftab .asc "mo;cfgt":.byt 0
  56. 695 madrtab .byt <mbefm-1,>mbefm-1
  57. 696 .byt <mbefo-1,>mbefo-1,<mbefinp-1,>mbefinp-1
  58. 697 .byt <mbefc-1,>mbefc-1,<mbeff-1,>mbeff-1
  59. 698 .byt <mbefg-1,>mbefg-1,<mbeft-1,>mbeft-1
  60. 700 mbefo jsr mgettwo:bcs mborts
  61. 710 jsr mgetbyt:bcs mborts:tax
  62. 725 mbo1 jsr mcomp:beq mbo3:bcs mborts
  63. 730 mbo3 ldy #0:txa:mbo2 sta (flag22),y:inc flag22:bne mbo1
  64. 740 inc flag22+1:bne mbo1:mborts rts
  65. 750 msget stx flag22:iny:lda (flagfe),y:cmp #";":bne msgerr
  66. 751 msc2 iny:ldx #0
  67. 755 msc1 lda (flagfe),y:bmi msgerr:cmp #32:bcs msc3:adc #64
  68. 758 msc3 sta $0200,x:inx:iny:cpy #6:bne msc1:lda #0:sta $0200,x
  69. 760 lda #1:sta zeibas+1:lda #$ff:sta zeibas:jsr mgetadr:bcs msgerr:rts
  70. 765 msgerr pla:pla:ldy #0:ldx flag22:sec:rts
  71. 770 mmgao jsr msget:lda int:sec:sbc #8:tay
  72. 775 lda int+1:sbc #0
  73. 776 jmp mmgau1
  74. 780 mmgau jsr msget:lda int:clc:adc #8:tay
  75. 785 lda int+1:adc #0
  76. 787 mmgau1 sty flag22:sta flag22+1:clc:rts
  77. 800 mbeft jsr mgetiii
  78. 820 bcs mbtrts
  79. 830 ldy #0:mbt1 jsr mcomp:beq mbt2:bcs mbtrts
  80. 840 mbt2 lda (flag22),y:sta (flagfc),y
  81. 850 jsr minc
  82. 860 bne mbt1:mbtrts rts
  83. 900 mbeff jsr mgettwo:bcs mbferr:jsr mfert:bcs mbferr
  84. 910 ldy #1:lda (zeibas),y:cmp #34:bne mbf2
  85. 920 mbf1 iny:lda (zeibas),y:beq mbf6:cmp #34:beq mbf6:sta $01fe,y:bne mbf1
  86. 925 mbf6 dey:dey:beq mbferr:bne mbfok
  87. 930 mbf2 jsr mgetbyt:bcs mbferr:sta $01ff,y:iny:jsr mfert:bcc mbf2:dey
  88. 940 mbfok sty flagfc
  89. 950 mbf3 jsr mcomp:beq mbf7:bcs mbfrts
  90. 955 mbf7 ldy #0:mbf4 lda (flag22),y:cmp $0200,y:bne mbf5:iny:cpy flagfc:bne mbf4
  91. 960 jsr mprtadr
  92. 965 mbf5 jsr $ffe1:beq mbfrts:inc flag22:bne mbf3:inc flag22+1:bne mbf3
  93. 970 mbfrts lda #13:jsr bsout:mbferr rts
  94. 980 mbefg jsr mgetadr:bcs mbferr:jmp (int)
  95. 1000 mbefc jsr mgetiii:bcs mbcerr
  96. 1010 ldy #0:mbc1 jsr mcomp:beq mbc3:bcs mbcrts:mbc3 lda (flag22),y
  97. 1020 cmp (flagfc),y:beq mbc2:jsr mprtadr
  98. 1025 mbc2 jsr $ffe1:beq mbcrts:jsr minc:bne mbc1
  99. 1030 mbcrts lda #13:jmp bsout:mbcerr rts
  100.